home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / CA29-3.ZIP;1 / PC-2-PC.CMD < prev    next >
Encoding:
Text File  |  1992-11-30  |  22.7 KB  |  1,501 lines
  1. S29="ATE0Q0V1X1S0=2 S7=30 S9=10^M"
  2. S19="PC-2-PC ver 1.1     "
  3. LEGE S19
  4. SUBD S18
  5. DLDI S17
  6. SET DLDI " "
  7. SET FLAG(0) OFF
  8. SET FLAG(1) ON
  9. SET FLAG(2) Off
  10. SET FLAG(3) Off
  11. SET CDIS ON
  12. SET RDIS OFF
  13. SET SOFT OFF
  14. SET ATIM 0
  15. SET ALAR OFF
  16. SET CHAT OFF
  17. SET XSUI 10
  18. ON ESCA GOSU Exit
  19. N90=N91=N92=0
  20. S16=""
  21. S15=""
  22. SET PARI NONE
  23. SET DATA 8
  24. SET STOP 1
  25. N98=0
  26. GOSU InitScre
  27. GOSU BuildLoc
  28. IF ZERO N98
  29. GOSU LinkTest
  30. ELSE
  31. FOPENI "PC2PC.LOC" TEXT
  32. ENDI
  33. Main:
  34. LEGE S19
  35. LOCA (N99-3),77
  36. SOUN 440,100
  37. SET TTHR OFF
  38. Main100:
  39. IF HITKEY
  40. GOTO MAIN200
  41. ENDI
  42. IF RECEIVE
  43. GOTO MAIN300
  44. ENDI
  45. IF ZERO N98 AND NOT CONNECTED
  46. GOTO Exit
  47. ENDI
  48. GOTO Main100
  49. MAIN200:
  50. KEYG S1
  51. SWIT S1
  52. CASE "C"
  53. GOSU ChangeOu
  54. ENDC
  55. CASE "E"
  56. GOTO Exit
  57. ENDC
  58. CASE "H"
  59. GOSU Help
  60. ENDC
  61. CASE "S"
  62. GOSU Select
  63. ENDC
  64. CASE "T"
  65. GOSU Transfer
  66. ENDC
  67. CASE "W"
  68. GOSU Wildcard
  69. ENDC
  70. CASE "4D00"
  71. GOSU Change_S
  72. ENDC
  73. CASE "4B00"
  74. GOSU Change_S
  75. ENDC
  76. CASE "4900"
  77. GOSU Prev_Pag
  78. ENDC
  79. CASE "5100"
  80. GOSU Next_Pag
  81. ENDC
  82. CASE "4700"
  83. GOSU Home_Pag
  84. ENDC
  85. CASE "4F00"
  86. GOSU End_Page
  87. ENDC
  88. CASE "4800"
  89. GOSU Cursor_U
  90. ENDC
  91. CASE "5000"
  92. GOSU Cursor_D
  93. ENDC
  94. CASE "7100"
  95. SHEL
  96. ENDC
  97. DEFA
  98. SOUN 100,100
  99. ENDC
  100. ENDS
  101. GOTO Main
  102. MAIN300:
  103. RGET S1 1
  104. SWIT S1
  105. CASE "R"
  106. RGET S1 80 10
  107. TRAN "+!"
  108. GOSU Remote_C
  109. ENDC
  110. CASE "E"
  111. GOTO Exit
  112. ENDC
  113. CASE "L"
  114. RGET S1 80 10
  115. TRAN "+!"
  116. GOSU Local_Ch
  117. ENDC
  118. CASE "T"
  119. RGET S1 80 10
  120. GOSU Rcv_Tran
  121. ENDC
  122. CASE "W"
  123. RGET S1 80 10
  124. GOSU Rcv_Wild
  125. ENDC
  126. CASE "?"
  127. TRAN "PC-2-PC!"
  128. SET FLAG(1) OFF
  129. GOSU Exchange
  130. ENDC
  131. DEFA
  132. RFLU
  133. GOTO Main100
  134. ENDC
  135. ENDS
  136. GOTO Main
  137. Exit:
  138. IF FLAG (0)
  139. TRAN "E!"
  140. SET FLAG(0) OFF
  141. ENDI
  142. TSIN (9) N9,N8,N7
  143. S3="DISCONNECT: ("&N9&":"&N8&":"&N7&")"
  144. CLOG S3
  145. IF CONNECTED and NOT FLAG(3)
  146. HANG
  147. ENDI
  148. DO
  149. REST
  150. UNTI FAILURE
  151. FCLOSEI
  152. FCLOSEO
  153. DELE "PC2PC.LOC"
  154. DELE "PC2PC.REM"
  155. CHDI S18
  156. SET CDRE ON
  157. BYE
  158. Clear_Cu:
  159. IF NOT ZERO N90
  160. GOSU Read_Cur
  161. IF FLAG(2)
  162. ATSA N90,41 (default) S12
  163. ELSE
  164. ATSA N90,2 (default) S12
  165. ENDI
  166. ENDI
  167. RETU
  168. Set_Curs:
  169. GOSU Read_Cur
  170. IF NOT ZERO N90
  171. IF FLAG(2)
  172. IF NOT NULL S12
  173. ATSA N90,41 (contrast) S12
  174. ELSE
  175. N90=N90-1
  176. GOTO Set_Curs
  177. ENDI
  178. ELSE
  179. IF NOT NULL S12
  180. ATSA N90,2 (contrast) S12
  181. ELSE
  182. N90=N90-1
  183. GOTO Set_Curs
  184. ENDI
  185. ENDI
  186. ENDI
  187. RETU
  188. Read_Cur:
  189. S12=""
  190. IF NOT ZERO N90
  191. IF FLAG(2)
  192. ATSC N90,41,37 S12
  193. ELSE
  194. ATSC N90,2,37 S12
  195. ENDI
  196. ENDI
  197. RETU
  198. Cursor_U:
  199. GOSU Clear_Cu
  200. IF NOT ZERO N90
  201. N90=N90-1
  202. ELSE
  203. N90=N99-5
  204. ENDI
  205. GOSU Set_Curs
  206. RETU
  207. Cursor_D:
  208. GOSU Clear_Cu
  209. IF LT N90 (N99-5)
  210. N90=N90+1
  211. ELSE
  212. N90=1
  213. ENDI
  214. GOSU Set_Curs
  215. RETU
  216. Change_S:
  217. GOSU Clear_Cu
  218. N90=0
  219. IF FLAG(2)
  220. ATSA N99-4,9 (default) " , , PgUp, PgDn "
  221. ATSA N99-4,48 (default) "  to this window "
  222. SET FLAG(2) OFF
  223. FOPENI "PC2PC.LOC" TEXT
  224. ELSE
  225. ATSA N99-4,9 (default) "  to this window "
  226. ATSA N99-4,48 (default) " , , PgUp, PgDn "
  227. SET FLAG(2) ON
  228. FOPENI "PC2PC.REM" TEXT
  229. ENDI
  230. RETU
  231. Clear_Wi:
  232. IF FLAG(2)
  233. SCRO 0,1,40,(N99-5),77 (default)
  234. ELSE
  235. SCRO 0,1,1,(N99-5),38 (default)
  236. ENDI
  237. N90=0
  238. RETU
  239. Prev_Pag:
  240. FRESTOREI
  241. IF FAILURE
  242. RETU
  243. ENDI
  244. FRESTOREI
  245. IF FAILED
  246. SOUN 100,100
  247. ENDI
  248. FSAVEI
  249. GOSU Clear_Wi
  250. PRPA100:
  251. N1=1
  252. PRPA200:
  253. READ S1 40 N0
  254. IF EOF
  255. IF EQ N1 1
  256. GOTO Prev_Pag
  257. ENDI
  258. GOTO PRPAXIT
  259. ENDI
  260. IF FLAG(2)
  261. ATSA N1,41 (default) S1(0:35)
  262. ELSE
  263. ATSA N1,2 (Default) S1(0:35)
  264. ENDI
  265. INC N1
  266. IF LE N1 (N99-5)
  267. GOTO PRPA200
  268. ENDI
  269. PRPAXIT:
  270. RETU
  271. Next_Pag:
  272. FSAVEI
  273. GOSU Clear_Wi
  274. GOTO PRPA100
  275. Home_Pag:
  276. REWI
  277. FSAVEI CLEAR
  278. GOTO Next_Pag
  279. End_Page:
  280. FSAVEI
  281. GOSU Clear_Wi
  282. ENPA100:
  283. N1=1
  284. ENPA200:
  285. READ S1 40 N0
  286. IF EOF
  287. IF EQ N1 1
  288. FRESTOREI
  289. IF FAILURE
  290. RETU
  291. ENDI
  292. ENDI
  293. GOTO ENPAXIT
  294. ENDI
  295. INC N1
  296. IF LE N1 (N99-5)
  297. GOTO ENPA200
  298. ENDI
  299. FSAVEI
  300. IF FAILED
  301. FSAVEI SHIFT
  302. FSAVEI
  303. ENDI
  304. GOTO ENPA100
  305. ENPAXIT:
  306. FSAVEI
  307. IF FAILED
  308. FSAVEI SHIFT
  309. FSAVEI
  310. ENDI
  311. GOTO PRev_Pag
  312. ChangeOu:
  313. IF FLAG(2)
  314. IF NOT ZERO N92
  315. GOTO CHDI200
  316. ENDI
  317. ELSE
  318. IF NOT ZERO N91
  319. GOTO CHDI100
  320. ENDI
  321. ENDI
  322. IF FLAG(2)
  323. S11="PC2PC.REM"
  324. ELSE
  325. S11="PC2PC.LOC"
  326. ENDI
  327. FFIR S11
  328. FNEX S11 QUAL
  329. GOSU Ask_Dir
  330. IF FLAG(9)
  331. RETU
  332. ENDI
  333. FCLOSEI
  334. DELE S11
  335. GOSU Clear_Wi
  336. IF FLAG(2)
  337. GOSU BuildRem
  338. ELSE
  339. GOSU SendLocD
  340. ENDI
  341. IF FLAG(2)
  342. S11="PC2PC.REM"
  343. ELSE
  344. S11="PC2PC.LOC"
  345. ENDI
  346. FOPENI S11 TEXT
  347. RETU
  348. CHDI100:
  349. S10="_ONESCAPE"
  350. ON ESCA GOSU CHDIEsc
  351. SAVE 10,10,12,70
  352. BOX 10,10,12,70 (contrast)
  353. CHDI110:
  354. ATSA 11,12 (contrast) "Files are selected on local side: Delete? Y/N: "
  355. ATSA 12,26 (contrast) " Press ESC to cancel "
  356. KEYG S1
  357. ON ESCA GOSU S10
  358. REST
  359. SWIT S1
  360. CASE "N"
  361. RETU
  362. ENDC
  363. CASE "Y"
  364. S16=""
  365. N91=0
  366. GOTO ChangeOu
  367. ENDC
  368. DEFA
  369. SOUN 100,100
  370. GOTO CHDI100
  371. ENDC
  372. ENDS
  373. CHDI200:
  374. S10="_ONESCAPE"
  375. ON ESCA GOSU CHDIEsc
  376. SAVE 10,10,12,70
  377. BOX 10,10,12,70 (contrast)
  378. ATSA 11,12 (contrast) "Files are selected on remote side: Delete? Y/N: "
  379. ATSA 12,26 (contrast) " Press ESC to cancel "
  380. KEYG S1
  381. ON ESCA GOSU S10
  382. REST
  383. SWIT S1
  384. CASE "N"
  385. RETU
  386. ENDC
  387. CASE "Y"
  388. S15=""
  389. N92=0
  390. GOTO ChangeOu
  391. ENDC
  392. DEFA
  393. SOUN 100,100
  394. GOTO CHDI200
  395. ENDC
  396. ENDS
  397. CHDIEsc:
  398. S1=""
  399. RETU
  400. Disc_Err:
  401. BOX 10,10,12,70 (contrast)
  402. ATSA 11,12 (contrast) "Fatal disk error - PC2PC terminating"
  403. ATSA 12,26 (contrast) " Press any key to continue "
  404. KEYG S0
  405. GOTO Exit
  406. Unimpl:
  407. S10="_ONESCAPE"
  408. ON ESCA GOSU UnimEsc
  409. SAVE 10,10,12,70
  410. BOX 10,10,12,70 (contrast)
  411. ATSA 11,12 (contrast) "Unimplemented function"
  412. ATSA 12,26 (contrast) " Press any key to continue "
  413. KEYG S1
  414. ON ESCA GOSU S10
  415. REST
  416. RETU
  417. UnimEsc:
  418. RETU
  419. BuildLoc:
  420. FOPENO "PC2PC.LOC" TEXT
  421. IF FAILURE
  422. GOSU Disc_Err
  423. ENDI
  424. FFIR "*.*"
  425. IF Failure
  426. FCLOSEO
  427. RETU
  428. ENDI
  429. N1=1
  430. BULD100:
  431. FNEX S1
  432. IF Failure
  433. FCLOSEO
  434. RETU
  435. ENDI
  436. IF STRCMP S1 "PC2PC.LOC"
  437. GOTO BULD100
  438. ENDI
  439. IF STRCMP S1 "PC2PC.REM"
  440. GOTO BULD100
  441. ENDI
  442. IF STRCMP S1(1:1) "."
  443. GOTO BULD100
  444. ENDI
  445. FATT S2 S1
  446. IF STRCMP S2(3:3) "1"
  447. GOTO BULD100
  448. ENDI
  449. FSIZ S2 S1
  450. FDAT S3 S1
  451. FTIM S4 S1
  452. S1(13:79)=S2
  453. S1(21:79)=S3
  454. S1(31:79)=S4
  455. S1(36)=" "
  456. S1(37)=" "
  457. S1(38)=" "
  458. S1(39)=" "
  459. S1(40)=" "
  460. PRES S1
  461. IF GE (N99-5),N1
  462. ATSA N1,2 (default) S1(0:36)
  463. ENDI
  464. WRIT S1 40
  465. WRIT "^M" 2
  466. INC N1
  467. GOTO BULD100
  468. LinkTest:
  469. IF NOT CONNECTED
  470. GOTO NoLink
  471. ENDI
  472. LEGE " Testing for link"
  473. RFLU
  474. TRAN "!?!"
  475. RGET S1 80 10
  476. IF FAILURE
  477. GOTO NoLink
  478. ENDI
  479. IF NOT STRCMP S1 "PC-2-PC"
  480. GOTO NoLink
  481. ENDI
  482. GOSU Exchange
  483. IF NOT FLAG(0)
  484. GOTO NoLink
  485. ENDI
  486. LinkXIT:
  487. S19(20:79)="Linked"
  488. RETU
  489. NoLink:
  490. RFLU
  491. LEGE " Select link method"
  492. SET FLAG(0) OFF
  493. SAVE 8,10,21,70
  494. BOX 8,10,21,70 (contrast)
  495. ATSA 9,12 (contrast) "No link is detected: select one of the following:"
  496. ATSA 11,12 (contrast) "1) Direct connect "
  497. ATSA 12,12 (contrast) "2) Wait for direct connect"
  498. ATSA 14,12 (contrast) "3) Dial the remote PC"
  499. ATSA 15,12 (contrast) "4) Wait for call connect "
  500. ATSA 17,12 (contrast) "5) Change subdirectory "
  501. ATSA 18,12 (contrast) "6) Help"
  502. ATSA 20,12 (Contrast) "Select: "
  503. ATSA 21,28 (Contrast) " ESC terminates script "
  504. NOLI100:
  505. LOCA 20,21
  506. KEYG S1
  507. SWIT S1
  508. CASE "1"
  509. GOSU Direct
  510. IF not FLAG(9)
  511. GOTO NOLI100
  512. ENDI
  513. COMP S3
  514. S2="CONNECT: Direct Connect         "*S3*" PC-TO-PC"
  515. CLOG S2
  516. SET TIME (9)
  517. SET FLAG(3) ON
  518. REST
  519. ENDC
  520. CASE "2"
  521. GOSU Await_Di
  522. IF not FLAG(9)
  523. GOTO NOLI100
  524. ENDI
  525. GOSU Respond
  526. IF FLAG(1)
  527. SOUN 880,500
  528. GOTO NOLI100
  529. ENDI
  530. REST
  531. GOSU Exchange
  532. IF FLAG(0)
  533. COMP S3
  534. S2="CONNECT: Direct Connect         "*S3*" PC-TO-PC"
  535. CLOG S2
  536. SET FLAG(3) ON
  537. GOTO LinkXIT
  538. ENDI
  539. ENDC
  540. CASE "3"
  541. GOSU Dial
  542. IF FLAG(9)
  543. GOTO NOLI100
  544. ENDI
  545. CLOG "* PC-2-PC Dial done"
  546. REST
  547. ENDC
  548. CASE "4"
  549. GOSU Await_Ca
  550. IF FLAG(9)
  551. GOTO NOLI100
  552. ENDI
  553. GOSU Respond
  554. IF FLAG(1)
  555. SOUN 880,500
  556. GOTO NOLI100
  557. ENDI
  558. REST
  559. GOSU Exchange
  560. IF FLAG(0)
  561. CLOG "* PC-2-PC Dial auto-answer"
  562. GOTO LinkXIT
  563. ENDI
  564. ENDC
  565. CASE "5"
  566. FFIR "PC2PC.LOC"
  567. FNEX S11 QUAL
  568. GOSU Change_D
  569. IF FLAG(9)
  570. GOTO NOLI100
  571. ENDI
  572. FCLOSEI
  573. DELE S11
  574. REST
  575. SCRO 0,1,1,(N99-5),38 (default)
  576. GOSU BuildLoc
  577. FOPENI "PC2PC.LOC" TEXT
  578. GOTO NoLink
  579. ENDC
  580. CASE "6"
  581. GOSU Help
  582. GOTO NOLI100
  583. ENDC
  584. DEFA
  585. SOUN 100,100
  586. GOTO NOLI100
  587. ENDC
  588. ENDS
  589. GOTO LinkTest
  590. Direct:
  591. SET CDRE OFF
  592. GOSU Set_Parm
  593. RFLU
  594. RETU
  595. Await_Di:
  596. SET CDRE OFF
  597. GOSU Set_Parm
  598. RFLU
  599. RETU
  600. Set_parm:
  601. WOPE 8,10,15,70 (Contrast) SEPAESC
  602. SET FLAG(9) ON
  603. ATSA 8,12 (contrast) " Direct connection - set parameters"
  604. ATSA 9,12 (contrast) "Select any of the following, CR to begin:"
  605. ATSA 10,12 (contrast) "A) COM1"
  606. ATSA 11,12 (contrast) "B) COM2"
  607. ATSA 12,12 (contrast) "C) COM3"
  608. ATSA 13,12 (contrast) "D) COM4"
  609. ATSA 10,22 (contrast) "1) 300"
  610. ATSA 11,22 (contrast) "2) 1200"
  611. ATSA 12,22 (contrast) "3) 2400"
  612. ATSA 13,22 (contrast) "4) 4800"
  613. ATSA 10,32 (contrast) "5) 9600"
  614. ATSA 11,32 (contrast) "6) 14.4k"
  615. ATSA 12,32 (contrast) "7) 19.2k"
  616. ATSA 13,32 (contrast) "8) 38.4k"
  617. ATSA 10,42 (contrast) "9) 57.6k"
  618. ATSA 11,42 (contrast) "0) 115k"
  619. ATSA 12,42 (contrast) "Note: 115k may yield"
  620. ATSA 13,42 (contrast) "a high error rate..."
  621. ATSA 14,12 (contrast) "Current setting: "
  622. ATSA 15,29 (contrast) " Press ESC to cancel "
  623. SEPA100:
  624. COMP S1
  625. ATSA 14,29 (CONTRAST) S1(0:14)
  626. KEYG S1
  627. SWIT S1
  628. CASE "0D"
  629. WCLO
  630. RETU
  631. ENDC
  632. CASE "A"
  633. SET PORT COM1
  634. ENDC
  635. CASE "B"
  636. SET PORT COM2
  637. ENDC
  638. CASE "C"
  639. SET PORT COM3
  640. ENDC
  641. CASE "D"
  642. SET PORT COM4
  643. ENDC
  644. CASE "1"
  645. SET BAUD 300
  646. ENDC
  647. CASE "2"
  648. SET BAUD 1200
  649. ENDC
  650. CASE "3"
  651. SET BAUD 2400
  652. ENDC
  653. CASE "4"
  654. SET BAUD 4800
  655. ENDC
  656. CASE "5"
  657. SET BAUD 9600
  658. ENDC
  659. CASE "6"
  660. SET BAUD 14k
  661. ENDC
  662. CASE "7"
  663. SET BAUD 19K
  664. ENDC
  665. CASE "8"
  666. SET BAUD 38K
  667. ENDC
  668. CASE "9"
  669. SET BAUD 57K
  670. ENDC
  671. CASE "0"
  672. SET BAUD 115K
  673. ENDC
  674. DEFA
  675. SOUN 100,100
  676. ENDC
  677. ENDS
  678. GOTO SEPA100
  679. SEPAEsc:
  680. S1="0D"
  681. SET FLAG(9) OFF
  682. RETU
  683. Dial:
  684. S10="_ONESCAPE"
  685. ON ESCA GOSU DialEsc
  686. LEGE " Dialing remote PC"
  687. SAVE 10,10,12,70
  688. BOX 10,10,12,70 (contrast)
  689. ATSA 11,12 (contrast) "Enter number to be dialed: "
  690. ATSA 12,29 (contrast) " Press ESC to cancel "
  691. Dial100:
  692. SET FLAG (9) ON
  693. ATGE 11,39 (contrast) 4 S1
  694. IF NULL S1
  695. GOTO DialXIT
  696. ENDI
  697. DIAL S1
  698. IF FAILED
  699. SOUN 880,500
  700. GOTO Dial100
  701. ENDI
  702. CLOG "* PC-2-PC Dialed: "*"_call"
  703. SET FLAG (9) OFF
  704. DialXIT:
  705. ON ESCA GOSU S10
  706. REST
  707. RETU
  708. DialEsc:
  709. S1=""
  710. RETU
  711. Await_Ca:
  712. S10="_ONESCAPE"
  713. ON ESCA GOSU AWCAEsc
  714. LEGE " Waiting for call"
  715. SAVE 10,10,12,70
  716. BOX 10,10,12,70 (contrast)
  717. ATSA 11,12 (contrast) "Waiting for call from remote"
  718. ATSA 12,26 (contrast) " Press ESC to terminate "
  719. SET PARI NONE
  720. SET DATA 8
  721. SET MASK ON
  722. SET FLAG(9) OFF
  723. AWCA100:
  724. Paus 3
  725. HANG
  726. PAUS 3
  727. TRAN S29
  728. AWCA200:
  729. RGET S1 80 180
  730. IF NOT SUCCESS
  731. GOTO AWCAXIT
  732. ENDI
  733. FIND S1 "NO CARRIER"
  734. IF FOUND
  735. GOTO AWCA100
  736. ENDI
  737. FIND S1 "CONNECT"
  738. IF NOT FOUND
  739. GOTO AWCA200
  740. ENDI
  741. IF FIND S1 "1200"
  742. SET BAUD 1200
  743. GOTO AWCAXIT
  744. ENDI
  745. IF FIND S1 "2400"
  746. SET BAUD 2400
  747. GOTO AWCAXIT
  748. ENDI
  749. IF FIND S1 "4800"
  750. SET BAUD 4800
  751. GOTO AWCAXIT
  752. ENDI
  753. IF FIND S1 "9600"
  754. SET BAUD 9600
  755. GOTO AWCAXIT
  756. ENDI
  757. IF FIND S1 "14400" or FIND S9 "14.4"
  758. SET BAUD 14k
  759. GOTO AWCAXIT
  760. ENDI
  761. IF FIND S1 "19200" or FIND S9 "19.2"
  762. SET BAUD 19k
  763. GOTO AWCAXIT
  764. ENDI
  765. IF FIND S1 "38400" or FIND S9 "38.4"
  766. SET BAUD 38k
  767. GOTO AWCAXIT
  768. ENDI
  769. IF FIND S1 "57600" or FIND S9 "57.6"
  770. SET BAUD 57k
  771. GOTO AWCAXIT
  772. ENDI
  773. SET BAUD 300
  774. AWCAXIT:
  775. ON ESCA GOSU S10
  776. REST
  777. RETU
  778. AWCAEsc:
  779. SET FLAG(9) ON
  780. RETU
  781. Change_D:
  782. GOSU Ask_Dir
  783. IF NOT FLAG(9)
  784. CHDI S1
  785. ENDI
  786. RETU
  787. Ask_Dir:
  788. S10="_ONESCAPE"
  789. ON ESCA GOSU ASDIEsc
  790. SAVE 10,1,12,77
  791. BOX 10,1,12,77 (contrast)
  792. ATSA 11,3 (contrast) "Enter new subdirectory: "
  793. ATSA 12,28 (contrast) " Press ESC to cancel "
  794. ASDI100:
  795. SET FLAG (9) ON
  796. ATGE 11,27 (contrast) 50 S1
  797. IF NOT NULL S1
  798. SET FLAG (9) OFF
  799. ENDI
  800. ON ESCA GOSU S10
  801. REST
  802. RETU
  803. ASDIEsc:
  804. S1=""
  805. RETU
  806. Respond:
  807. LEGE " Waiting for prompt"
  808. S10="_ONESCAPE"
  809. ON ESCA GOSU RESPEsc
  810. SAVE 10,10,12,70
  811. BOX 10,10,12,70 (contrast)
  812. ATSA 11,12 (contrast) "Waiting for prompt from remote"
  813. ATSA 12,26 (contrast) " Press ESC to cancel "
  814. RESP100:
  815. RGET S1 80,120
  816. IF SUCCESS and NULL S1
  817. GOTO Resp100
  818. ENDI
  819. IF SUCCESS and STRCMP S1(0:0) "?"
  820. TRAN "PC-2-PC!"
  821. SET FLAG(1) OFF
  822. ENDI
  823. ON ESCA GOSU S10
  824. REST
  825. LEGE S19
  826. RETU
  827. RESPEsc:
  828. S1="ESCAPE"
  829. RETU
  830. Exchange:
  831. FOPENO "PC2PC.REM" TEXT
  832. IF FAILURE
  833. GOSU Disc_Err
  834. ENDI
  835. FOPENI "PC2PC.LOC" TEXT
  836. IF FAILURE
  837. GOSU Disc_Err
  838. ENDI
  839. LEGE "Exchanging directory listings"
  840. N1=1
  841. N5=0
  842. IF FLAG(1)
  843. GOTO EXCH200
  844. ENDI
  845. EXCH100:
  846. RGET S2 80 15
  847. PRES S2
  848. IF Failure
  849. GOTO EXCHXIT
  850. ENDI
  851. IF NOT STRCMP S2(0:0) "+"
  852. INC N5
  853. IF GT N5,20
  854. GOTO EXCHXIT
  855. ENDI
  856. GOTO EXCH210
  857. ENDI
  858. LENG S2 N3
  859. IF GT N3 1
  860. CRC S2(1:40) N2
  861. ATOI S2(41:46) N4
  862. IF NE N2 N4
  863. GOTO EXCHERR
  864. ENDI
  865. ELSE
  866. IF EOF
  867. TRAN "+!"
  868. SET FLAG(0) ON
  869. GOTO EXCHXIT
  870. ENDI
  871. LEGE S19(0:19)&" Line "*N1&" exchanged"
  872. INC N1
  873. GOTO EXCH200
  874. ENDI
  875. IF GE (N99-5),N1
  876. ATSA N1,41 (default) S2(1:37)
  877. ELSE
  878. IF EQ (N99-4) N1
  879. FSAVEI
  880. ENDI
  881. LEGE S19(0:19)&" Line "*N1&" exchanged"
  882. ENDI
  883. WRIT S2(1:40) 40
  884. WRIT "^M" 2
  885. INC N1
  886. EXCH200:
  887. N5=0
  888. READ S3 80 N2
  889. PRES S3
  890. S1=S3
  891. IF EOF
  892. S1="!"
  893. GOTO EXCH210
  894. ENDI
  895. CRC S1(0:39) N2
  896. S1(40:50)=N2&"!"
  897. EXCH210:
  898. TRAN "+"&S1
  899. GOTO EXCH100
  900. EXCHERR:
  901. INC N5
  902. IF GT N5,20
  903. GOTO EXCHXIT
  904. ENDI
  905. TRAN "-!"
  906. LEGE "Exchange Error NAK"
  907. GOTO EXCH100
  908. EXCHXIT:
  909. REWI
  910. FCLOSEO
  911. LEGE S19
  912. RETU
  913. BuildRem:
  914. TRAN "R"&S1&"!"
  915. RGET S1 80 20
  916. PRES S1
  917. IF FAILURE
  918. SOUN 100,100
  919. GOTO BURDXIT
  920. ENDI
  921. IF NOT STRCMP S1(0) "+"
  922. SOUN 200,100
  923. GOTO BURDXIT
  924. ENDI
  925. FOPENO "PC2PC.REM" TEXT
  926. IF FAILURE
  927. GOSU Disc_Err
  928. ENDI
  929. LEGE "Waiting to receive new directory"
  930. N1=1
  931. N5=0
  932. BURD100:
  933. RGET S2 80 120
  934. PRES S2
  935. IF Failure
  936. GOTO BURDXIT
  937. ENDI
  938. LENG S2 N3
  939. IF GT N3 1
  940. CRC S2(1:40) N2
  941. ATOI S2(41:46) N4
  942. IF NE N2 N4
  943. TRAN "-!"
  944. INC N5
  945. IF GT N5,20
  946. GOTO BURDXIT
  947. ENDI
  948. GOTO BURD100
  949. ENDI
  950. N5=0
  951. ELSE
  952. TRAN "+!"
  953. GOTO BURDXIT
  954. ENDI
  955. IF GE (N99-5),N1
  956. ATSA N1,41 (default) S2(1:37)
  957. ELSE
  958. IF EQ (N99-4) N1
  959. FSAVEI
  960. ENDI
  961. LEGE S19(0:19)&" Line "*N1&" received"
  962. ENDI
  963. WRIT S2(1:40) 40
  964. WRIT "^M" 2
  965. INC N1
  966. TRAN "+!"
  967. GOTO BURD100
  968. BURDXIT:
  969. FCLOSEO
  970. REWI
  971. LEGE S19
  972. RETU
  973. Remote_C:
  974. FCLOSEI
  975. DELE "PC2PC.LOC"
  976. CHDI S1
  977. IF FLAG(2)
  978. GOSU Change_s
  979. ENDI
  980. GOSU Clear_Wi
  981. LEGE " Remote requested chdir"
  982. GOSU BuildLoc
  983. FOPENI "PC2PC.LOC" TEXT
  984. IF FAILURE
  985. GOSU Disc_Err
  986. ENDI
  987. N1=1
  988. N5=0
  989. RECH100:
  990. READ S3 80 N2
  991. PRES S3
  992. S1=S3
  993. IF EOF
  994. S1="!"
  995. GOTO RECH110
  996. ENDI
  997. CRC S1(0:39) N2
  998. S1(40:50)=N2&"!"
  999. RECH110:
  1000. TRAN "+"&S1
  1001. LEGE S19(0:19)&" Line "*N1&" sent"
  1002. RECH200:
  1003. RGET S2 80 60
  1004. PRES S2
  1005. IF Failure
  1006. GOTO RECHXIT
  1007. ENDI
  1008. IF NOT STRCMP S2(0:0) "+"
  1009. INC N5
  1010. IF GT N5,20
  1011. GOTO RECHXIT
  1012. ENDI
  1013. GOTO RECH110
  1014. ENDI
  1015. INC N1
  1016. N5=0
  1017. IF NOT EOF
  1018. GOTO RECH100
  1019. ENDI
  1020. RECHXIT:
  1021. REWI
  1022. LEGE S19
  1023. RETU
  1024. SendLocD:
  1025. CHDI S1
  1026. GOSU BuildLoc
  1027. TRAN "L!"
  1028. RGET S1 80 10
  1029. PRES S1
  1030. IF FAILURE
  1031. SOUN 100,100
  1032. GOTO SELDXIT
  1033. ENDI
  1034. IF NOT STRCMP S1(0) "+"
  1035. SOUN 200,100
  1036. GOTO SELDXIT
  1037. ENDI
  1038. FOPENI "PC2PC.LOC" TEXT
  1039. IF FAILURE
  1040. GOSU Disc_Err
  1041. ENDI
  1042. N1=1
  1043. SELD100:
  1044. READ S3 80 N2
  1045. PRES S3
  1046. S1=S3
  1047. IF EOF
  1048. S1="!"
  1049. GOTO SELD110
  1050. ENDI
  1051. CRC S1(0:39) N2
  1052. S1(40:50)=N2&"!"
  1053. SELD110:
  1054. TRAN "+"&S1
  1055. LEGE S19(0:19)&" Line "*N1&" sent"
  1056. SELD200:
  1057. RGET S2 80 60
  1058. PRES S2
  1059. IF Failure
  1060. GOTO SELDXIT
  1061. ENDI
  1062. IF NOT STRCMP S2(0:0) "+"
  1063. GOTO SELD110
  1064. ENDI
  1065. INC N1
  1066. IF NOT EOF
  1067. GOTO SELD100
  1068. ENDI
  1069. SELDXIT:
  1070. REWI
  1071. LEGE S19
  1072. RETU
  1073. Local_Ch:
  1074. FCLOSEI
  1075. DELE "PC2PC.REM"
  1076. IF NOT FLAG(2)
  1077. GOSU Change_s
  1078. ENDI
  1079. FOPENO "PC2PC.REM" TEXT
  1080. IF FAILURE
  1081. GOSU Disc_Err
  1082. ENDI
  1083. N1=1
  1084. LEGE "Remote is sending new listing"
  1085. GOSU Clear_Wi
  1086. LOCH100:
  1087. RGET S2 80 120
  1088. PRES S2
  1089. IF Failure
  1090. GOTO LOCHXIT
  1091. ENDI
  1092. LENG S2 N3
  1093. IF GT N3 1
  1094. CRC S2(1:40) N2
  1095. ATOI S2(41:46) N4
  1096. IF NE N2 N4
  1097. TRAN "-!"
  1098. GOTO LOCH100
  1099. ENDI
  1100. ELSE
  1101. TRAN "+!"
  1102. GOTO LOCHXIT
  1103. ENDI
  1104. IF GE (N99-5),N1
  1105. ATSA N1,41 (default) S2(1:37)
  1106. ELSE
  1107. IF EQ (N99-4) N1
  1108. FSAVEI
  1109. ENDI
  1110. LEGE S19(0:19)&" Line "*N1&" received"
  1111. ENDI
  1112. WRIT S2(1:40) 40
  1113. WRIT "^M" 2
  1114. INC N1
  1115. TRAN "+!"
  1116. GOTO LOCH100
  1117. LOCHXIT:
  1118. FCLOSEO
  1119. FOPENI "PC2PC.REM"
  1120. LEGE S19
  1121. RETU
  1122. Wildcard:
  1123. LEGE " Enter a wildcard spec for file(s) "
  1124. WOPE 10,1,12,77 (contrast) WILDEsc
  1125. ATSA 11,3 (contrast) "You may send or receive files: Enter S/R:     "
  1126. ATSA 12,27 (contrast) " Press ESC to cancel "
  1127. WILD100:
  1128. ATGE 11,45 (contrast) 1 S1
  1129. IF NULL S1
  1130. GOTO WILDXIT
  1131. ENDI
  1132. SWIT S1
  1133. CASE "S"
  1134. SET FLAG(9) ON
  1135. ENDC
  1136. CASE "R"
  1137. SET FLAG(9) OFF
  1138. ENDC
  1139. DEFA
  1140. SOUN 100,100
  1141. GOTO WILD100
  1142. ENDC
  1143. ENDS
  1144. WILD200:
  1145. BOX 10,1,12,77 (contrast)
  1146. ATSA 11,3 (contrast) "Wildcard file spec: "
  1147. ATSA 12,27 (contrast) " Press ESC to cancel "
  1148. ATGE 11,24 (contrast) 50 S1
  1149. IF NULL S1
  1150. GOTO WILDXIT
  1151. ENDI
  1152. IF FLAG (9)
  1153. FFIR S1
  1154. IF FAILED
  1155. S1="No files match the given spec"
  1156. GOSU TranErr
  1157. GOTO WILD200
  1158. ENDI
  1159. TRAN "WR!"
  1160. ELSE
  1161. TRAN "WS"&S1&"!"
  1162. ENDI
  1163. WILD300:
  1164. RGET S2 80 10
  1165. IF FAILURE
  1166. S1="Remote has failed to acknowlege"
  1167. GOSU TranErr
  1168. GOTO WILDXIT
  1169. ENDI
  1170. IF NOT STRCMP S2(0) "+"
  1171. IF FLAG(9)
  1172. GOTO WILD300
  1173. ELSE
  1174. S1="Sender reports no files matching your spec"
  1175. GOSU TranErr
  1176. ENDI
  1177. GOTO WILDXIT
  1178. ENDI
  1179. IF FLAG(9)
  1180. SEND ZMODEM S1
  1181. ELSE
  1182. GETF ZMODEM
  1183. ENDI
  1184. IF FAILED
  1185. S1="Transfer has failed"
  1186. GOSU TranErr
  1187. ENDI
  1188. WILDXIT:
  1189. WCLO
  1190. LEGE S19
  1191. RETU
  1192. WILDEsc:
  1193. S1=""
  1194. RETU
  1195. TranErr:
  1196. S11="_ONESCAPE"
  1197. ON ESCA GOSU TranEsc
  1198. SAVE 10,1,12,77
  1199. BOX 10,1,12,77 (contrast)
  1200. ATSA 11,3 (contrast) S1
  1201. ATSA 12,26 (contrast) " Press any key to continue "
  1202. SOUN 880,100
  1203. KEYG S0
  1204. ON ESCA GOSU S11
  1205. REST
  1206. RETU
  1207. TranEsc:
  1208. RETU
  1209. Rcv_Wild:
  1210. IF STRCMP S1(0) "S"
  1211. FFIR S1(1:79)
  1212. IF FAILED
  1213. TRAN "-!"
  1214. RETU
  1215. ENDI
  1216. ENDI
  1217. TRAN "+!"
  1218. IF STRCMP S1(0) "R"
  1219. GETF ZMODEM
  1220. ELSE
  1221. SEND ZMODEM S1(1:79)
  1222. ENDI
  1223. IF FAILED
  1224. SOUN 880,500
  1225. ENDI
  1226. RETU
  1227. Select:
  1228. IF FLAG(2)
  1229. N10=N92
  1230. ELSE
  1231. N10=N91
  1232. ENDI
  1233. S10="_ONESCAPE"
  1234. ON ESCA GOSU SELEEsc
  1235. LEGE " Transfer selections"
  1236. SAVE 8,10,20,70
  1237. GOSU Read_Cur
  1238. SELE100:
  1239. BOX 8,10,20,70 (contrast)
  1240. ATSA 9,12 (contrast) "     Local files selected      Remote files selected"
  1241. ATSA 11,12 (contrast) "1) "*S16(0:12)
  1242. ATSA 12,12 (contrast) "2) "*S16(13:25)
  1243. ATSA 13,12 (contrast) "3) "*S16(26:38)
  1244. ATSA 14,12 (contrast) "4) "*S16(39:51)
  1245. ATSA 15,12 (contrast) "5) "*S16(52:64)
  1246. ATSA 11,40 (contrast) "a) "*S15(0:12)
  1247. ATSA 12,40 (contrast) "b) "*S15(13:25)
  1248. ATSA 13,40 (contrast) "c) "*S15(26:38)
  1249. ATSA 14,40 (contrast) "d) "*S15(39:51)
  1250. ATSA 15,40 (contrast) "e) "*S15(52:64)
  1251. IF LT N10 5 OR NULL S12
  1252. ATSA 17,12 (contrast) "Current cursor points to: "*S12(0:12)
  1253. ATSA 18,12 (contrast) "Do you wish to add this file (Y/N)?"
  1254. ELSE
  1255. ATSA 17,12 (contrast) "No more files may be selected from this side"
  1256. ATSA 18,12 (contrast) "Enter a letter or number from above to clear an entry"
  1257. ENDI
  1258. ATSA 19,12 (Contrast) "Select: "
  1259. ATSA 20,28 (Contrast) " Press ESC to exit "
  1260. SELE200:
  1261. LOCA 19,20
  1262. KEYG S1
  1263. SWIT S1
  1264. CASE "_NULL"
  1265. GOTO SELEXIT
  1266. ENDC
  1267. CASE "Y"
  1268. GOTO SELE500
  1269. ENDC
  1270. CASE "N"
  1271. GOTO SELEXIT
  1272. ENDC
  1273. CASE "1"
  1274. S16(0:79)=S16(13:79)
  1275. GOTO SELE300
  1276. ENDC
  1277. CASE "2"
  1278. S16(13:79)=S16(26:79)
  1279. GOTO SELE300
  1280. ENDC
  1281. CASE "3"
  1282. S16(26:79)=S16(39:79)
  1283. GOTO SELE300
  1284. ENDC
  1285. CASE "4"
  1286. S16(39:79)=S16(52:79)
  1287. GOTO SELE300
  1288. ENDC
  1289. CASE "5"
  1290. S16(52:79)=S16(65:79)
  1291. GOTO SELE300
  1292. ENDC
  1293. CASE "A"
  1294. S15(0:79)=S15(13:79)
  1295. GOTO SELE400
  1296. ENDC
  1297. CASE "B"
  1298. S15(13:79)=S15(26:79)
  1299. GOTO SELE400
  1300. ENDC
  1301. CASE "C"
  1302. S15(26:79)=S15(39:79)
  1303. GOTO SELE400
  1304. ENDC
  1305. CASE "D"
  1306. S15(39:79)=S15(52:79)
  1307. GOTO SELE400
  1308. ENDC
  1309. CASE "E"
  1310. S15(52:79)=S15(65:79)
  1311. GOTO SELE400
  1312. ENDC
  1313. DEFA
  1314. SOUN 100,100
  1315. GOTO SELE200
  1316. ENDC
  1317. ENDS
  1318. SELE300:
  1319. IF NOT ZERO N10
  1320. DEC N91
  1321. DEC N10
  1322. ENDI
  1323. GOTO SELE100
  1324. SELE400:
  1325. IF NOT ZERO N10
  1326. DEC N92
  1327. DEC N10
  1328. ENDI
  1329. GOTO SELE100
  1330. SELE500:
  1331. IF LT N10 5
  1332. IF FLAG(2)
  1333. S15(N10*13:79)=S12(0:12)
  1334. INC N10
  1335. INC N92
  1336. ELSE
  1337. S16(N10*13:79)=S12(0:12)
  1338. INC N10
  1339. INC N91
  1340. ENDI
  1341. ELSE
  1342. SOUN 100,100
  1343. GOTO SELE200
  1344. ENDI
  1345. SELEXIT:
  1346. ON ESCA GOSU S10
  1347. REST
  1348. RETU
  1349. SELEESC:
  1350. S1=""
  1351. RETU
  1352. Transfer:
  1353. IF ZERO N91 and ZERO N92
  1354. S1="You have not selected a file to transfer"
  1355. GOSU TranErr
  1356. RETU
  1357. ENDI
  1358. WOPE 10,1 12,77 (contrast)
  1359. ATSA 11,3 (contrast) "Transfer in progress"
  1360. TRAN100:
  1361. IF ZERO N91
  1362. GOTO TRAN200
  1363. ENDI
  1364. TRAN "TR"&S16(0:12)&"!"
  1365. TRAN110:
  1366. RGET S2 80 10
  1367. IF FAILURE
  1368. S1="Remote has failed to acknowlege"
  1369. GOSU TranErr
  1370. GOTO TRAN300
  1371. ENDI
  1372. IF NOT STRCMP S2(0) "+"
  1373. GOTO TRAN110
  1374. ENDI
  1375. SEND ZMODEM S16(0:12)
  1376. IF FAILED
  1377. S1="Transfer has failed"
  1378. GOSU TranErr
  1379. GOTO TRAN300
  1380. ENDI
  1381. S16(0:79)=S16(13:79)
  1382. DEC N91
  1383. GOTO TRAN100
  1384. TRAN200:
  1385. IF ZERO N92
  1386. GOTO TRAN300
  1387. ENDI
  1388. TRAN "TS"&S15(0:12)&"!"
  1389. TRAN210:
  1390. RGET S2 80 10
  1391. IF FAILURE
  1392. S1="Remote has failed to acknowlege"
  1393. GOSU TranErr
  1394. GOTO TRAN300
  1395. ENDI
  1396. IF NOT STRCMP S2(0) "+"
  1397. GOTO TRAN210
  1398. ENDI
  1399. DELE S15(0:12)
  1400. GETF ZMODEM
  1401. IF FAILED
  1402. S1="Transfer has failed"
  1403. GOSU TranErr
  1404. GOTO TRAN300
  1405. ENDI
  1406. S15(0:79)=S15(13:79)
  1407. DEC N92
  1408. GOTO TRAN200
  1409. TRAN300:
  1410. WCLO
  1411. TRANXIT:
  1412. RETU
  1413. Rcv_Tran:
  1414. TRAN "+!"
  1415. IF STRCMP S1(0) "R"
  1416. DELE S1(1:13)
  1417. GETF ZMODEM
  1418. ELSE
  1419. SEND ZMODEM S1(1:13)
  1420. ENDI
  1421. IF FAILED
  1422. SOUN 880,500
  1423. ENDI
  1424. RETU
  1425. InitScre:
  1426. SSIZ N99
  1427. SAVE 0,0,N99-2,79
  1428. BOX 0,0,(N99-2),78 (default)
  1429. ATSA 0,18 (default) " Local "
  1430. ATSA 0,35 (default) " PC-2-PC "
  1431. ATSA 0,56 (default) " Remote "
  1432. FOR N19=1 (N99-5) 1
  1433. ATSA N19 39 (default) "≥"
  1434. ENDF
  1435. ATSA N99-4,0 (default) "√ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ¥"
  1436. ATSA N99-4,39 (default) "¡"
  1437. ATSA N99-4,9 (default) " , , PgUp, PgDn "
  1438. ATSA N99-4,48 (default) "  to this window "
  1439. ATSA N99-3,2 (Default) "H)elp, E)xit, C)hdir, W)ildcard, S)elect, T)ransfer and Alt-F10:"
  1440. ATSA N99-2,28 (Default) " Press ESC to terminate "
  1441. RETU
  1442. Help:
  1443. SAVE 0,0,24,78
  1444. BOX 0,0,24,78 (default)
  1445. ATSA 0,2 (Default) " PC-2-PC "
  1446. ATSA 24,28 (Default) " Press any key to continue "
  1447. S10="_ONESCAPE"
  1448. ON ESCA GOSU HELPESC
  1449. IF FLAG(0)
  1450. GOTO HELP100
  1451. ENDI
  1452. ATSA 1,2 (default) "PC-2-PC is a COM-AND script for linking PCs and exchanging files.  When    "
  1453. ATSA 2,2 (default) "PC-2-PC executed, it reads and displays the current subdirectory, and then    "
  1454. ATSA 3,2 (default) "prompts for a method to establish a link."
  1455. ATSA 5,2 (default) "Two link methods are provided, either DIRECT connect, or CALLing through    "
  1456. ATSA 6,2 (default) "the dialing directory.  Each method has two sides: one that initiates the    "
  1457. ATSA 7,2 (default) "connection, and one that awaits a connection.  The first script loaded (or    "
  1458. ATSA 8,2 (default) "the first PC to be loaded) is best instructed to 'await'.  The second to    "
  1459. ATSA 9,2 (default) "be loaded may then initiate the connection."
  1460. ATSA 11,2 (default) "A direct connection is, for example, an RS232 cable between async ports     "
  1461. ATSA 12,2 (default) "of two PCs.  The RS232 cable must be configured as a 'null modem' - i.e.,     "
  1462. ATSA 13,2 (default) "the send side of one PC must connect to the receive side of the other and     "
  1463. ATSA 14,2 (default) "vice versa.  As PC-2-PC ignores carrier using this method, even 3-wire     "
  1464. ATSA 15,2 (default) "null modem will work."
  1465. ATSA 17,2 (default) "A called connection uses a modem on each PC, and the dialing directory     "
  1466. ATSA 18,2 (default) "on one of them.  The modems must be able to communicate ordinarily (not     "
  1467. ATSA 19,2 (default) "all do).  The initiator of the called connection selects the dialing     "
  1468. ATSA 20,2 (default) "directory entry number (with or without LD prefix), and COM-AND dials     "
  1469. ATSA 21,2 (default) "in the ordinary fashion.  The PC awaiting the connect answers the call.     "
  1470. ATSA 23,2 (default) "Once connection has been established, the PC's exchange directory lists.     "
  1471. GOTO HELPXIT
  1472. HELP100:
  1473. ATSA 1,2 (default) "The two PC's are connected, and directory listings have been exchanged.    "
  1474. ATSA 2,2 (default) "The left window is the current subdirectory on this PC.  The right window    "
  1475. ATSA 3,2 (default) "is the current directory on the remote.  Cursor-keys (left/right) change    "
  1476. ATSA 4,2 (default) "the 'active' window - you are either in the left or right windows."
  1477. ATSA 5,2 (default) "The 'C'hdir command will select a new drive:subdirectory on this PC (if    "
  1478. ATSA 6,2 (default) "the left window is active), and on the remote PC (if right window).        "
  1479. ATSA 7,2 (default) "The active window on the remote PC is switched (if need be) and a new    "
  1480. ATSA 8,2 (default) "list is displayed on both PC's."
  1481. ATSA 10,2 (default) "PgUp, PgDn, Home and End allow paging through the active window for files.     "
  1482. ATSA 11,2 (default) "Only paging is performed - the window is not scrolled line by line."
  1483. ATSA 13,2 (default) "Cursor-Up and Cursor-Down highlight files on the current page.  A lighted     "
  1484. ATSA 14,2 (default) "line is selected for transfer with 'S'elect.  Up to 5 files on the local     "
  1485. ATSA 15,2 (default) "side, and 5 files on the remote side may be selected.  A 'T'ransfer may be     "
  1486. ATSA 16,2 (default) "done at any time to transfer files (either from or to the local PC). "
  1487. ATSA 17,2 (default) "A wildcard file transfer is also available, selecting files to/from other     "
  1488. ATSA 18,2 (default) "than the current subdirectory, or where a template might make life easier.     "
  1489. ATSA 19,2 (default) "Unlike the 'T'ransfer command, you transfer using a wildcard only one     "
  1490. ATSA 20,2 (default) "direction at a time, either sending or receiving. "
  1491. ATSA 22,2 (default) "If you have selected files, you must transfer them before changing sub-     "
  1492. ATSA 23,2 (default) "directories.  E)xit terminates both sides if a called connected was made."
  1493. GOTO HELPXIT
  1494. HELPXIT:
  1495. KEYG S0
  1496. ON ESCA GOSU S10
  1497. REST
  1498. RETU
  1499. HELPESC:
  1500. RETU
  1501.